home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #269 (1993)(Rhein-Sieg-Soft)(Disk 1 of 2).zip / Franz PD Disk #269 (1993)(Rhein-Sieg-Soft)(Disk 1 of 2).adf / Wortspiele / Sakra!V1.0 / Sakra!V1.amosSourceCode < prev    next >
AMOS Source Code  |  1993-10-11  |  4KB  |  234 lines
  1. Screen Open 0,640,265,16,Hires
  2. Colour 1,$0
  3. Dir$="Words/"
  4. Gosub LOARD
  5. WRONG=1
  6. OUTOF=1
  7. RIGHT=1
  8. HUT=1
  9. MUT=1
  10. NUTTE=1
  11. Double Buffer 
  12. Autoback 1
  13. TP:
  14. GT=1
  15. VT=2
  16. Print At(0,0);"Try No.:"
  17. Print At(70,0);"Lost Time:"
  18. Gosub TIMEOUT
  19. Gosub FALSCH
  20. Gosub RRICHTIG
  21. Gosub LORD
  22. T$=Upper$(T$)
  23. Timer=0
  24. OPA=1
  25. For II=1 To 5
  26. AA$=Mid$(T$,1,1)
  27. BA$=Mid$(T$,2,1)
  28. CA$=Mid$(T$,3,1)
  29. DA$=Mid$(T$,4,1)
  30. EA$=Mid$(T$,5,1)
  31. Next II
  32. Rem Paste Bob 200,0,29 
  33. Paste Bob 215,0,29
  34. Paste Bob 250,0,11
  35. Paste Bob 285,0,21
  36. Paste Bob 320,0,28
  37. Paste Bob 355,0,11
  38. Paste Bob 390,0,39
  39. Paste Bob 235,35,32
  40. Paste Bob 270,35,2
  41. Paste Bob 315,35,40
  42. Paste Bob 340,35,1
  43. NEU:
  44. T=Rnd(4)+1
  45. S=Rnd(4)+1
  46. If T=S Then Goto NEU
  47. G=0
  48. Print At(37,G+11);"_____"
  49. If T=1 Then Print At(37,G+11);AA$
  50. If T=2 Then Print At(38,G+11);BA$
  51. If T=3 Then Print At(39,G+11);CA$
  52. If T=4 Then Print At(40,G+11);DA$
  53. If T=5 Then Print At(41,G+11);EA$
  54. If S=1 Then Print At(37,G+11);AA$
  55. If S=2 Then Print At(38,G+11);BA$
  56. If S=3 Then Print At(39,G+11);CA$
  57. If S=4 Then Print At(40,G+11);DA$
  58. If S=5 Then Print At(41,G+11);EA$
  59. Curs Off 
  60. Change Mouse 2
  61. Reserve Zone 30
  62. Get Sprite Palette 
  63. Flash Off 
  64. Colour 1,$0
  65. NR=11
  66. B=1
  67. X=0
  68. Paste Bob 0,200,NR
  69. Set Zone B,0,200 To X+35,235
  70. For I=1 To 12
  71. X=X+35
  72. NR=NR+1
  73. B=B+1
  74. Paste Bob X,200,NR
  75. Set Zone B,0,200 To X+35,235
  76. Next I
  77. X=0
  78. NR=NR+1
  79. B=B+1
  80. Paste Bob 0,235,NR
  81. Set Zone B,0,235 To X+35,270
  82. For I=1 To 12
  83. X=X+35
  84. NR=NR+1
  85. B=B+1
  86. Paste Bob X,235,NR
  87. Set Zone B,0,235 To X+35,270
  88. Next I
  89. X=X+70
  90. P=X
  91. Paste Bob X,200,27
  92. X=X+35
  93. Paste Bob X,200,31
  94. X=X+35
  95. Paste Bob X,200,19
  96. X=X+35
  97. Paste Bob X,200,30
  98. Set Zone B+1,P,200 To X+35,235
  99. P=P+35
  100. Paste Bob X-35*2,235,24
  101. Paste Bob X-35,235,15
  102. Paste Bob X,235,33
  103. Set Zone B+2,P,235 To X+35,270
  104. Limit Mouse 135,249 To 440,300
  105. L=35*6
  106. M=35*3
  107. TERROR:
  108. G=0
  109. For G=1 To 5
  110. Locate 0,10
  111. Bob 0,15,10,G+1
  112. Print At(0,12);"      "
  113. NEENEE:
  114. J=0
  115. For R=1 To 5
  116. J=J+1
  117. Do 
  118. GT=Timer/60
  119. VT=Timer/600
  120. If GT>9 Then Timer=0 : OPA=OPA+1
  121. If OPA>10 Then Bob 1,565,10,1 : Bob 2,600,10,1 : Goto ZEIT
  122.  Bob 1,565,10,VT+OPA
  123.  Bob 2,600,10,GT+1
  124.  C=Mouse Click
  125. If C<>0
  126. V=Mouse Zone : Goto OUT
  127. End If 
  128.  Loop 
  129. OUT:
  130. A=0
  131. B=64
  132. For I=1 To 26
  133. A=A+1
  134. B=B+1
  135. If V=A Then W$=Chr$(B) : Goto OUT2
  136. Next I
  137. If V=27 Then Stop 
  138. If V=28 Then Print At(37,22);"     " : Goto NEENEE
  139. OUT2:
  140. If J=1 Then Print At(37,22);"     "
  141. If J=1 Then A$=W$ : Q=37
  142. If J=2 Then B$=W$ : Q=38
  143. If J=3 Then C$=W$ : Q=39
  144. If J=4 Then D$=W$ : Q=40
  145. If J=5 Then E$=W$ : Q=41
  146. Print At(Q,22);W$
  147. Next R
  148. Print At(37,G+13);"_____"
  149. If A$=AA$ Then Print At(37,G+13);AA$
  150. If B$=BA$ Then Print At(38,G+13);BA$
  151. If C$=CA$ Then Print At(39,G+13);CA$
  152. If D$=DA$ Then Print At(40,G+13);DA$
  153. If E$=EA$ Then Print At(41,G+13);EA$
  154. If T$=(A$+B$+C$+D$+E$) Then Goto RICHTIG
  155. Next G
  156. Goto TRIES
  157. TRIES:
  158. Print At(50,15);"     Out of tries!"
  159. Print At(50,16);"the correct answere was"
  160. Print At(50,17);"         ";T$;"         "
  161. Print At(50,18);" Now press any key ..."
  162. Wait Key 
  163. Print At(50,15);"                        "
  164. Print At(50,16);"                        "
  165. Print At(50,17);"                        "
  166. Print At(50,18);"                        "
  167. WRONG=WRONG+1
  168. Goto LOOM
  169. LOOM:
  170. Reserve Zone 
  171. For G=1 To 5
  172. Print At(37,G+13);"      "
  173. Next G
  174. Print At(37,22);"      "
  175. Goto TP
  176. ZEIT:
  177. Print At(50,15);"     Out of time!!"
  178. Print At(50,16);"the correct answere was"
  179. Print At(50,17);"         ";T$;"         "
  180. Print At(50,18);" Now press any key ..."
  181. Wait Key 
  182. Print At(50,15);"                        "
  183. Print At(50,16);"                        "
  184. Print At(50,17);"                        "
  185. Print At(50,18);"                        "
  186. OUTOF=OUTOF+1
  187. Goto LOOM
  188. RICHTIG:
  189. Print At(50,15);"   Yo, that`s it!"
  190. Print At(50,16);"So get ready for the"
  191. Print At(50,17);"   next word ... "
  192. Print At(50,18);" Now press any key ..."
  193. Wait Key 
  194. Print At(50,15);"                        "
  195. Print At(50,16);"                        "
  196. Print At(50,17);"                        "
  197. Print At(50,18);"                        "
  198. RIGHT=RIGHT+1
  199. Goto LOOM
  200. TIMEOUT:
  201. Print At(71,8);"Timeouts:"
  202. If OUTOF>10 Then HUT=HUT+1 : OUTOF=1
  203. If HUT=10 Then HUT=0
  204. Bob 4,565,73,OUTOF/11+HUT
  205. Bob 5,600,73,OUTOF
  206. Return 
  207. FALSCH:
  208. Print At(0,8);"Incorrect:"
  209. If WRONG>10 Then MUT=MUT+1 : WRONG=1
  210. If MUT=10 Then MUT=0
  211. Bob 6,0,73,WRONG/11+MUT
  212. Bob 7,35,73,WRONG
  213. Return 
  214. RRICHTIG:
  215. Print At(0,14);"Correct:"
  216. If RIGHT>10 Then NUTTE=NUTTE+1 : RIGHT=1
  217. If NUTTE=10 Then NUTTE=0
  218. Bob 8,0,120,RIGHT/11+NUTTE
  219. Bob 9,35,120,RIGHT
  220. Return 
  221. LOARD:
  222. Open In 1,"flag"
  223. Input #1,NUMMERN
  224. Close 1
  225. Return 
  226. LORD:
  227. Randomize Timer
  228. NUMMERN=NUMMERN-1
  229. WAS=Rnd(NUMMERN)+1
  230. ST$=Str$(WAS)
  231. Open In 1,ST$
  232. Input #1,T$
  233. Close 1
  234. Return